perm filename TEST.F4[P11,LCS]2 blob sn#547908 filedate 1980-11-24 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION M(2)
C00003 ENDMK
CāŠ—;
	DIMENSION M(2)
	DOUBLE PRECISION MM
	EQUIVALENCE (M,MM)
1	FORMAT(' TYPE INPUT NAME  '$)
2	FORMAT(' TYPE OUTPUT NAME  '$)
3	FORMAT(' TYPE EXTENSION  '$)
4	FORMAT(3A5)
5	TYPE 1
	ACCEPT 4,M(1)
	TYPE 3
	ACCEPT 4,M(2)
	M(2)='.QQQ'
	CALL OFILE(21,MM)
	II='AAAAA'
	JJ='BBBBB'
	KK='CCCCC'
	WRITE(21,4)II,JJ,KK
	END FILE 21
	CALL IFILE(22,MM)
	READ(22,4)I,J,K
	TYPE 4,I,J,K
	GO TO 5
	END